   1 .
   2 .
   3 .BLACK HOLE
  10 clear ;NT=0;&(22)=200;FC=7;BC=8
  20 CY=0;print "   THE BLACK HOLE"
  30 for A=255to 0step -1;&(18)=A;next A
  40 clear ;CY=40
  50 print "  SELECT SKILL LEVEL";print "   TO ORBIT";print 
  60 print "  1.EASY";print "  2.MODRATE";print "  3.HARD"
  70 input "ENTER NUMBER TO GO"S
  80 H=0;O=0
  90 if (S<1)+(S>3)goto 10
 100 clear ;FC=7;BC=0;&(22)=200;&(16)=235;&(18)=230;&(20)=200
 110 for A=1to 50;box rnd (160)-80,rnd (80)-40,1,1,1;next A
 170 X=-75;Y=40;B=0;C=0;M=0;N=15;D=-5;E=0
 180 F=100;&(23)=255;box 0,0,7,7,1;box 0,0,5,5,2
 200 if M>0D=D-1
 201 if M<0D=D+1
 202 if N>0E=E-1
 203 if N<0E=E+1
 210 box X,Y,3,3,3;box M,N,8,2,3;box M+2,N+1,1,2,3
 220 I=JX(1);J=JY(1)
 230 if F<1print "NO FUEL";I=0;J=0
 235 if I#0&(21)=255
 236 if J#0&(21)=255
 237 if I=0if J=0&(21)=0
 240 if I#0box X-Imul 2,Y,3,1,3;F=F-1
 241 if J#0box X,Y-Jmul 2,1,3,3;F=F-1
 245 U=X;V=Y;B=B+I;C=C+J
 250 CY=44;print #4,F,#4,H,#3,O
 260 if X>0B=B-1
 261 if X<0B=B+1
 262 if Y>0C=C-1
 263 if Y<0C=C+1
 265 if X>78X=-78
 266 if X<-78X=78
 267 if Y>40Y=-40
 268 if Y<-40Y=40
 270 X=X+B;Y=Y+C
 271 print #4,X,#4,Y,#3,C
 280 if X<5if X>-5if Y<5if Y>-5goto 1000
 290 if S=1if X>-10if X<10if Y>-10if Y<10if C=5goto 500
 300 if S=2if X>-9if X<9if Y>-9if Y<9if C=5goto 500
 310 if S=3if X>-7if X<7if Y>-7if Y<7if C=5goto 500
 320 box U,V,3,3,3;box M,N,8,2,3;box M+2,N+1,1,2,3
 330 if I#0box U-Imul 2,V,3,1,3
 340 if J#0box U,V-Jmul 2,1,3,3
 350 M=M+D;N=N+E
 360 goto 200
 500 &(21)=0;O=O+1
 510 CY=0;print "IN ORBIT NEAR THE CYGUS"
 520 for A=1to 2000;next A;clear 
 530 for A=1to 50;box rnd (160)-80,rnd (80)-40,1,1,1;next A
 540 box 0,0,100,10,1
 550 box 50,7,40,10,1
 555 box 0,30,15,15,1;box 0,30,11,11,2
 560 box 50,-7,40,10,1
 570 box 0,10,140,1,1
 580 box 0,-10,140,1,1
 590 box 40,15,8,10,1
 600 line -70,10,0
 610 for A=-65to 65step 10
 620 line A,-10,3;line A+5,10,3
 640 next A
 650 line -70,-10,0
 660 for A=-65to 65step 10
 670 line A,10,3;line A+5,-10,3
 690 next A
 698 X=-70;Y=-30
 700 for A=1to 250
 710 box X,Y,3,3,3
 720 box X,Y,3,3,3
 730 X=X+JX(1);Y=Y+JY(1)
 740 next A
 900 for A=1to 2000;next A
 910 goto 100
1000 H=H+1;&(21)=0
1010 CY=0;print "  LOST IN BLACK HOLE
1015 for A=1to 1000;next A;clear 
1017 for A=1to 200;next A
1020 box 0,10,30,20,1;box -20,-30,10,6,1;box 20,-30,10,6,1
1021 line -10,0,1;line -20,-30,1;line 20,-30,1;line 10,0,1
1030 for A=200to 0step -1
1040 BC=A;&(9)=192;&(0)=A+18;&(1)=A+23
1050 &(2)=A+35;&(3)=A+38;&(9)=40
1060 &(20)=A;&(18)=A;&(16)=A
1070 next A;&(22)=0;clear ;goto 900
:return ;run  
